home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pwfosl10.zip
/
PWFOSSIL.INT
< prev
next >
Wrap
Text File
|
1992-04-01
|
743b
|
23 lines
unit pwfossil;
interface
type
parity=(none, even, odd);
procedure SetBaud(baud: word; port, stop, charlen: integer; p: parity);
procedure SendChar(p: integer; c: char);
procedure SendString(p: integer; s: string);
function RecvChar(p: integer; var c: char): boolean;
function InitFossil(p: integer): boolean;
procedure DeInitFossil(p: integer);
function CarrierDetect(p: integer): boolean;
procedure SetFlowControl(p: integer; ST, H, SR: boolean);
procedure FlushOutput(p: integer);
procedure PurgeOutput(p: integer);
procedure PurgeInput(p: integer);
procedure DTRRaise(p: integer; b: boolean);
procedure SetWatch(p: integer; b: boolean);
procedure Reboot(b: boolean);
function InputCheck(p: integer):boolean;